home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00023.ls < prev    next >
Encoding:
Text File  |  2002-04-15  |  336 b   |  11 lines
  1. global DBPath
  2.  
  3. on exitFrame me
  4.   a = getVariable(sprite(1), "Anecdote:a")
  5.   AnecdoteID = getVariable(sprite(1), "UAnecdoteID" & a)
  6.   db = DGOpenDatabase(DBPath & "FlyBox.mdb", 0, 0, ";PWD=StopLooking")
  7.   DGExecute("DELETE FROM Anecdote WHERE AnecdoteID = " & AnecdoteID, db)
  8.   DGClose(db)
  9.   alert("Your anecdote has been deleted.")
  10. end
  11.